#Include "Fileio.ch"
#Include "Topconn.ch"
#Include "tbiconn.ch"

/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! CPL01DMS                                                !
+------------------+---------------------------------------------------------+
!Descricao         ! DMS                                                     !
!                  ! ImportRegionUser.                                       !
!                  ! Layout importacao regioes                               !
!                  !                                                         !
+------------------+---------------------------------------------------------+
!Autor             ! TSC505 - Felipe Jose Limas                              !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 31/05/12                                                !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
*/


User Function CPL01DMS()
Local nHandle :=-1
Local cLinha  :=""
Local cQuery  :=""
Local cAli    :=GetNextAlias()
Local cArq    :=StrTran("\dms\gerados\ImportRegionUser_"+DtoS(dDataBase)+Time()+".txt", ":", "")

//campos do arquivo
Local cdRegion       :=""
Local cdRegionType   :=""
Local dsRegion       :=""
Local cdRegionStatus :=""
Local cdParentRegion :=""
Local cdUser         :=""
Local nmFirstName    :=""
Local nmLastName     :=""
Local nrPhone1       :=""
Local nrPhone2       :=""
Local Email          :=""
Local cdUserStatus   :=""
Local nQtdR          :=0


//busco todos os vendedores
cQuery:= " SELECT DA5_COD COD,'ZONE' REGIAO,DA5_DESC DE,DA5_MSBLQL BLOQ,'MACRO' SUPER ,DA5_COD VEND,DA5_DESC NOME,DA5_DESC NREDUZ,'04832868666' TEL,'04832868666' FAX,'dms@cplkibon.com.br' EM,DA5_MSBLQL BLOQ1  "
cQuery+= " FROM "+RetSqlName("DA5")+" DA5 "
cQuery+= " WHERE DA5.D_E_L_E_T_ = ' '"
cQuery+= " AND DA5_ZDTDMS = "+DtoS(dDatabase)+" "

TCQuery ChangeQuery(cQuery) New Alias &(cAli)

//Conta qtd de registros
Count to nQtdR

If nQtdR > 0
	nHandle:= FCREATE(cArq)
	If nHandle == -1
		conout("Erro ao criar arquivo - ferror " + Str(Ferror()))
	Else
		cdRegion       :=Alltrim(Padr('MACRO',25))+Chr(9)
		cdRegionType   :=Alltrim(Padr('DISTR',5))+Chr(9)
		dsRegion       :=Alltrim(Padr('MACRO REGIAO',30))+Chr(9)
		cdRegionStatus :=Alltrim(Padr('ACT',5))+Chr(9)
		cdParentRegion :=Alltrim(Padr('',25))+Chr(9)
		cdUser         :=Alltrim(Padr('',23))+Chr(9)
		nmFirstName    :=Alltrim(Padr('',50))+Chr(9)
		nmLastName     :=Alltrim(Padr('',50))+Chr(9)
		nrPhone1       :=''+Chr(9)
		nrPhone2       :=''+Chr(9)
		Email          :=Alltrim(Padr('',20))+Chr(9)
		cdUserStatus   :=Alltrim(Padr('',5))+Chr(9)
		
		cLinha:= cdRegion+cdRegionType+dsRegion+cdRegionStatus+cdParentRegion+cdUser+nmFirstName+nmLastName+nrPhone1+nrPhone2+Email+cdUserStatus
		FWrite(nHandle, cLinha+Chr(13)+Chr(10))
		&(cAli)->(dbGoTop())
		Do While !&(cAli)->(EOF())
			cdRegion      :=Alltrim(Padr(&(cAli)->(COD),25))+Chr(9)
			cdRegionType  :=Alltrim((Padr(cdRegionType,5)))+Chr(9)
			dsRegion      :=Alltrim(Padr(&(cAli)->(DE),30))+Chr(9)
			do case
				Case Alltrim(&(cAli)->(BLOQ)) = "2"
					cdRegionStatus   :="ACT  "+Chr(9)
				Case Alltrim(&(cAli)->(BLOQ)) = "1"
					cdRegionStatus   :="DEACT"+Chr(9)
				Otherwise
					cdRegionStatus   :="ACT  "+Chr(9)
			EndCase
			cdParentRegion:=Alltrim(Padr(&(cAli)->(SUPER),25))+Chr(9)
			cdUser        :=Alltrim(Padr(&(cAli)->(VEND),23))+Chr(9)
			nmFirstName   :=Alltrim(Padr(&(cAli)->(NOME),50))+Chr(9)
			nmLastName    :=Alltrim(Padr(&(cAli)->(NREDUZ),50))+Chr(9)
			nrPhone1      :=Alltrim(Padr(&(cAli)->(TEL),20))+Chr(9)
			nrPhone2      :=Alltrim(Padr(&(cAli)->(FAX),20))+Chr(9)
			Email         :=Alltrim(Padr(&(cAli)->(EM),50))+Chr(9)
			do case
				Case Alltrim(&(cAli)->(BLOQ1)) = "2"
					cdUserStatus :="ACT  "+Chr(9)
				Case Alltrim(&(cAli)->(BLOQ1)) = "1"
					cdUserStatus :="DEACT"+Chr(9)
				Otherwise
					cdUserStatus :=" "+Chr(9)
			EndCase
			cdRegionType  :=Alltrim(&(cAli)->(REGIAO))+Chr(9)
			
			cLinha:=cdRegion+cdRegionType+dsRegion+cdRegionStatus+cdParentRegion+cdUser+nmFirstName+nmLastName+nrPhone1+nrPhone2+Email+cdUserStatus
			FWrite(nHandle, cLinha+Chr(13)+Chr(10))
			
			&(cAli)->(dbSkip())
		EndDo
		
		TcSqlExec("UPDATE "+RetSqlName("DA5")+" SET DA5_ZALTDM = 'N' ")
		
		&(cAli)->(dbCloseArea())
		FClose(nHandle)
		
		/*Tenta se conectar ao servidor ftp na porta 21
		//conexao sera feita com programa externo ws_ftp - gabriel 17/10/2012
		If !FTPCONNECT("189.59.223.136" , 21 ,"FTP_UDB_CPL", "16Access97")
			conout("Nao foi possivel conectar")
			Return .F.
		EndIf
		
		If !FTPUPLOAD(cArq, "/FTP_UDB_CPL/Inbox/"+SubStr(cArq, At("IMPORT", UPPER(cArq))))
			conout("Nao foi possivel realizar o upload!!")
			Return .F.
		EndIf
		FTPDISCONNECT() 
		*/
	EndIf
EndIf
Return cArq